unit uExportExcel;

interface
uses
  System.Classes, System.SysUtils;
type
  pBillExportInfo = ^ TBillExportInfo;
  TBillExportInfo = packed record
    billNo: string;
    procState: string;
    fetchNode: string;
    fetchEmpName: string;
    dispNode: string;
    dispEmpName: string;
    weight: string;
    cargoCnt: string;
    cod: string;
    fee: string;
    feeAccNo: string;
    lkpayside: string;
    codFee: string;
    inusFee: string;
    advFee: string;
    income: string;
    lkfeestate: string;
    sendName: string;
    sendCont: string;
    sendTel: string;
    sendAddr: string;
    destName: string;
    receiver: string;
    destCont: string;
    destTel: string;
    destAddr: string;
    crtDate: string;
    rcvTime: string;
    remark: string;
    recbillName: string;
  end;

  procedure CreateBillExportInfoList(var aList: TList);
  procedure FreeBillExportInfoList(var aList: TList);

implementation

procedure CreateBillExportInfoList(var aList: TList);
begin
  aList := TList.Create;
end;

procedure FreeBillExportInfoList(var aList: TList);
var
  I: Integer;
  pt: pBillExportInfo;
begin
  for I := 0 to aList.Count - 1 do
  begin
    pt := aList[I];
    Dispose(pt);
    pt := nil;
  end;
  aList.Clear;
  FreeAndNil(aList);
end;

end.
